library(ggplot2)
library(plotly)
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
mydata = read.csv("Seasons_Stats.csv")
summary(mydata)
##        X              Year                   Player           Pos      
##  Min.   :    0   Min.   :1950                   :   67   PF     :4966  
##  1st Qu.: 6172   1st Qu.:1981   Eddie Johnson   :   33   SG     :4811  
##  Median :12345   Median :1996   Mike Dunleavy   :   32   C      :4759  
##  Mean   :12345   Mean   :1993   Gerald Henderson:   29   SF     :4699  
##  3rd Qu.:18518   3rd Qu.:2007   Nazr Mohammed   :   28   PG     :4648  
##  Max.   :24690   Max.   :2017   Kevin Willis    :   27   G      : 139  
##                  NA's   :67     (Other)         :24475   (Other): 669  
##       Age              Tm              G               GS       
##  Min.   :18.00   TOT    : 2123   Min.   : 1.00   Min.   : 0.00  
##  1st Qu.:24.00   NYK    : 1043   1st Qu.:27.00   1st Qu.: 0.00  
##  Median :26.00   BOS    :  998   Median :58.00   Median : 8.00  
##  Mean   :26.66   DET    :  917   Mean   :50.84   Mean   :23.59  
##  3rd Qu.:29.00   PHI    :  871   3rd Qu.:75.00   3rd Qu.:45.00  
##  Max.   :44.00   LAL    :  834   Max.   :88.00   Max.   :83.00  
##  NA's   :75      (Other):17905   NA's   :67      NA's   :6458   
##        MP            PER              TS.            X3PAr      
##  Min.   :   0   Min.   :-90.60   Min.   :0.000   Min.   :0.000  
##  1st Qu.: 340   1st Qu.:  9.80   1st Qu.:0.458   1st Qu.:0.005  
##  Median :1053   Median : 12.70   Median :0.506   Median :0.064  
##  Mean   :1210   Mean   : 12.48   Mean   :0.493   Mean   :0.159  
##  3rd Qu.:1971   3rd Qu.: 15.60   3rd Qu.:0.544   3rd Qu.:0.288  
##  Max.   :3882   Max.   :129.10   Max.   :1.136   Max.   :1.000  
##  NA's   :553    NA's   :590      NA's   :153     NA's   :5852   
##       FTr              ORB.              DRB.             TRB.        
##  Min.   :0.0000   Min.   :  0.000   Min.   :  0.00   Min.   :  0.000  
##  1st Qu.:0.2080   1st Qu.:  2.600   1st Qu.:  8.80   1st Qu.:  5.900  
##  Median :0.2960   Median :  5.400   Median : 12.70   Median :  9.200  
##  Mean   :0.3255   Mean   :  6.182   Mean   : 13.71   Mean   :  9.949  
##  3rd Qu.:0.4000   3rd Qu.:  9.000   3rd Qu.: 18.10   3rd Qu.: 13.500  
##  Max.   :6.0000   Max.   :100.000   Max.   :100.00   Max.   :100.000  
##  NA's   :166      NA's   :3899      NA's   :3899     NA's   :3120     
##       AST.             STL.             BLK.             TOV.       
##  Min.   :  0.00   Min.   : 0.000   Min.   : 0.000   Min.   :  0.00  
##  1st Qu.:  6.50   1st Qu.: 1.100   1st Qu.: 0.300   1st Qu.: 11.40  
##  Median : 10.50   Median : 1.500   Median : 0.900   Median : 14.20  
##  Mean   : 13.01   Mean   : 1.648   Mean   : 1.411   Mean   : 15.09  
##  3rd Qu.: 17.60   3rd Qu.: 2.100   3rd Qu.: 1.900   3rd Qu.: 17.70  
##  Max.   :100.00   Max.   :24.200   Max.   :77.800   Max.   :100.00  
##  NA's   :2136     NA's   :3899     NA's   :3899     NA's   :5109    
##       USG.         blanl              OWS              DWS        
##  Min.   :  0.00   Mode:logical   Min.   :-5.100   Min.   :-1.000  
##  1st Qu.: 15.40   NA's:24691     1st Qu.:-0.100   1st Qu.: 0.200  
##  Median : 18.60                  Median : 0.400   Median : 0.800  
##  Mean   : 18.91                  Mean   : 1.257   Mean   : 1.227  
##  3rd Qu.: 22.20                  3rd Qu.: 1.900   3rd Qu.: 1.800  
##  Max.   :100.00                  Max.   :18.300   Max.   :16.000  
##  NA's   :5051                    NA's   :106      NA's   :106     
##        WS             WS.48         blank2             OBPM        
##  Min.   :-2.800   Min.   :-2.519   Mode:logical   Min.   :-73.800  
##  1st Qu.: 0.200   1st Qu.: 0.031   NA's:24691     1st Qu.: -3.400  
##  Median : 1.400   Median : 0.075                  Median : -1.500  
##  Mean   : 2.486   Mean   : 0.065                  Mean   : -1.778  
##  3rd Qu.: 3.800   3rd Qu.: 0.115                  3rd Qu.:  0.300  
##  Max.   :25.400   Max.   : 2.123                  Max.   : 47.800  
##  NA's   :106      NA's   :590                     NA's   :3894     
##       DBPM              BPM               VORP             FG        
##  Min.   :-30.400   Min.   :-86.700   Min.   :-2.60   Min.   :   0.0  
##  1st Qu.: -1.700   1st Qu.: -4.200   1st Qu.:-0.20   1st Qu.:  41.0  
##  Median : -0.500   Median : -1.800   Median : 0.00   Median : 141.0  
##  Mean   : -0.549   Mean   : -2.327   Mean   : 0.56   Mean   : 195.3  
##  3rd Qu.:  0.700   3rd Qu.:  0.300   3rd Qu.: 0.90   3rd Qu.: 299.0  
##  Max.   : 46.800   Max.   : 36.200   Max.   :12.40   Max.   :1597.0  
##  NA's   :3894      NA's   :3894      NA's   :3894    NA's   :67      
##       FGA              FG.          ThreePoints          X3PA      
##  Min.   :   0.0   Min.   :0.0000   Min.   :  0.00   Min.   :  0.0  
##  1st Qu.:  99.0   1st Qu.:0.3930   1st Qu.:  0.00   1st Qu.:  1.0  
##  Median : 321.0   Median :0.4390   Median :  2.00   Median : 11.0  
##  Mean   : 430.6   Mean   :0.4308   Mean   : 22.21   Mean   : 63.6  
##  3rd Qu.: 661.0   3rd Qu.:0.4800   3rd Qu.: 27.00   3rd Qu.: 84.0  
##  Max.   :3159.0   Max.   :1.0000   Max.   :402.00   Max.   :886.0  
##  NA's   :67       NA's   :166      NA's   :5764     NA's   :5764   
##       X3P.            X2P              X2PA             X2P.       
##  Min.   :0.000   Min.   :   0.0   Min.   :   0.0   Min.   :0.0000  
##  1st Qu.:0.100   1st Qu.:  35.0   1st Qu.:  82.0   1st Qu.:0.4070  
##  Median :0.292   Median : 122.0   Median : 270.0   Median :0.4560  
##  Mean   :0.249   Mean   : 178.3   Mean   : 381.8   Mean   :0.4453  
##  3rd Qu.:0.363   3rd Qu.: 268.0   3rd Qu.: 579.2   3rd Qu.:0.4960  
##  Max.   :1.000   Max.   :1597.0   Max.   :3159.0   Max.   :1.0000  
##  NA's   :9275    NA's   :67       NA's   :67       NA's   :195     
##       eFG.              FT             FTA              FT.        
##  Min.   :0.0000   Min.   :  0.0   Min.   :   0.0   Min.   :0.0000  
##  1st Qu.:0.4140   1st Qu.: 18.0   1st Qu.:  27.0   1st Qu.:0.6570  
##  Median :0.4630   Median : 63.0   Median :  88.0   Median :0.7430  
##  Mean   :0.4507   Mean   :102.4   Mean   : 136.8   Mean   :0.7193  
##  3rd Qu.:0.5010   3rd Qu.:149.0   3rd Qu.: 201.0   3rd Qu.:0.8080  
##  Max.   :1.5000   Max.   :840.0   Max.   :1363.0   Max.   :1.0000  
##  NA's   :166      NA's   :67      NA's   :67       NA's   :925     
##       ORB              DRB              TRB              AST        
##  Min.   :  0.00   Min.   :   0.0   Min.   :   0.0   Min.   :   0.0  
##  1st Qu.: 12.00   1st Qu.:  33.0   1st Qu.:  51.0   1st Qu.:  19.0  
##  Median : 38.00   Median : 106.0   Median : 159.0   Median :  68.0  
##  Mean   : 62.19   Mean   : 147.2   Mean   : 224.6   Mean   : 114.9  
##  3rd Qu.: 91.00   3rd Qu.: 212.0   3rd Qu.: 322.0   3rd Qu.: 160.0  
##  Max.   :587.00   Max.   :1111.0   Max.   :2149.0   Max.   :1164.0  
##  NA's   :3894     NA's   :3894     NA's   :379      NA's   :67      
##       STL             BLK              TOV               PF       
##  Min.   :  0.0   Min.   :  0.00   Min.   :  0.00   Min.   :  0.0  
##  1st Qu.:  9.0   1st Qu.:  3.00   1st Qu.: 18.00   1st Qu.: 39.0  
##  Median : 29.0   Median : 11.00   Median : 55.00   Median :109.0  
##  Mean   : 39.9   Mean   : 24.47   Mean   : 73.94   Mean   :116.3  
##  3rd Qu.: 60.0   3rd Qu.: 29.00   3rd Qu.:112.00   3rd Qu.:182.0  
##  Max.   :301.0   Max.   :456.00   Max.   :464.00   Max.   :386.0  
##  NA's   :3894    NA's   :3894     NA's   :5046     NA's   :67     
##       PTS        
##  Min.   :   0.0  
##  1st Qu.: 106.0  
##  Median : 364.0  
##  Mean   : 510.1  
##  3rd Qu.: 778.0  
##  Max.   :4029.0  
##  NA's   :67
qplot(x=Age,                               
      y=ThreePoints,                              
      data=mydata,                      
      geom="point",                        
      main = "NBA players",  
      xlab="Age",                          
      ylab="3PS/G",                    
      color= Pos                    
      )
## Warning: Removed 5764 rows containing missing values (geom_point).

my.plot3 <- ggplot(mydata, aes(x = Age))
my.plot3 <- my.plot3 +
  geom_histogram(binwidth = 0.2, fill = "steelblue")
my.plot3
## Warning: Removed 75 rows containing non-finite values (stat_bin).

plot_ly(mydata, x = ~Age, color = ~Pos, type = "box")
## Warning: Ignoring 75 observations
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors